C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


**FILE**1De*LINCL 


aa 
ae 
a 
ju 
44 
a4 
oH 
a4 
a4 I I I 
ee 
VY Vu 
Vw Vu 
Vu wu 
Wu Ow 
Vu Vu 
vv a) 
ww i) 
iS) Vu 


VBVVYVUYUYUYUYUY 
VVVVVUUYUYYUYUY 


2222222222222 
2 


su 
ee) 
a) 
=) 
a4 
yy 
aa 
su 
=e) 
—) 


nw MMwnn 
“mn YwnwNn 
mn nn mn 
nn “nn nw 
awn mn “nn 
“nw “nn nw 
ww nn “nn 
nn nn ww 
ANMnM nn 
ywnnwn mn 
= om 
oo Cadel 


LLLLLLLLLE 
LLLLLLLLLL 


EDTSLINCL = INCLUDE Line-mode command 1-5 -Sep-1984 ¢ 99: 3}: $¢ VAX-11 s-32 V4.0 Page 1 
14-Sep-1984 12:23:56 DISK$V nen TER: CEDT. she LINCL.BLI;1 (1). 


$ 1 001 ZTITLE “EDTSLINCL = INCLUDE Line-mode command’ 

3 ¢ O06 MODULE EDTSLINCL ( ! Linenmpds INCLUDE command 

3 Z Obit pOENT = 'v04-000' ! File: LINCL.BLI Edit: JBS1028 

3 5 0005 1 BEGIN 

; 6 0006 1! 

: 4 seit : | SeReSeReeRereRetesereNenTeeterseTeeHeReReteseverNsenseroesenesenesesetedeee 

3 '® e 

; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

3 1} Bat 4 : ~ ALL RIGHTS RESERVED. * 

: :* 8 

: 18 org 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

1 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

$ 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS OR ANY E * 
s 1 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s 17 0017 1 !* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
H + dt : = TRANSFERRED. ® 

g it ® 

: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

4 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $$ Os¢ : a CORPORATION. * 

: 'e * 
3 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0026 1 !* * 
ao ar 0027 1 !« * 

: 28 0028 1 caer e eee eee RRA EERE E TATA AAA AAAAE RARER AT AA EHe 

; 2 0029 1! 

; 0030 1 

Vo 0031 1 !+4+ ; 
3 32 0032 1 ! FACILITY: EDT == The DEC Standard Editor 
> = 0033 1! 
.. 0034 1 ! ABSTRACT: | 
;: = 0035 1! 
: 3 Bo 6 : This module executes the Line mode INCLUDE command. 
: $ sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

: re net ; AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 

s 62 0042 1 ! MODIFIED BY: 

3s 65 0043 1! 

3; (44 0044 1 ! 1-001 - Originst. DJS 30-JAN-1981. This module was created by 

o 63 0045 1! extracti ng the cous ine EDTSSINCL_CMD from the module EXEC.BLI. 

: 46 0046 1 ! 1-002 - Change, ros 10_STS and IO_FNF ‘~— EDTS$G_IOFI_NFND . 

3; 67 0047 1! 19-Feb-19 oni 

; 68 00468 1! 1-003 - Fie "eahale name. JBS sa rt be 

: 49 0049 1 ! 1-004 - Use new pessege ¢ codes. es 

- = 0050 1 ! 1-005 - ppenge 1/0 calls to use Bist i ore 26-Dec=1981 

. oF it 1! 1- - ange atl to fileio to geal 0. STs Jan-1982 

: 26 26 1! 1- ~ Ft SCSA_POINTER ma re. 

3 2 053 1! 1- : - Add rhb descr. fetin ti i re -Jan-1982 

: 4 054 1! - - Add a return value for line insertion succes . SMB 3-Feb-1982 

s 53 055 1 ! 1-010 = Deallocate dynamic descriptors. t. 10- rgee ty 

: 28 B26 1 ! 1-011 = Pass filename to edt$$fiopn_err. 5- Te°he. 2 

oe 057 1! 12012 - Add Literals for callable oe et Mike STS 08-Mar-1982 


12 2 


6- - AX-11 Bliss-32 V4.0-7 Page 2. 
eh te een ee ey SNORE : 2-88-1382 99: 34: 4 OT SKSVMEMASTER SEE erkD + "sac LINCL.BLI;1 ad 
- - ines return tatus. JBS 26-Mar-1982 
83 Be 1 | TAME = fectontre tesa te sale atid oes ate rej9ee 
: 1 | 1-015 = Print a message on a tose error. ‘as. 2 p-1982 ons 
: 1 | 1-016 = Change PDP=11 filenames to uppercase. S Ln ft 
ae 62 11 1. 1§ - Add error auaes ge for no Titenengs. one, “Apr 
; s o7 i i: i . Seek atlenlt ange n RHB poregeter. 3 -Jun-1982 | 
; és iii: = Stas braces eee nae’ select Rae SMB + ae 19 ¢. | 
; 6 a6h 1 i 12052 = Ser ebrsie: SCR cHaD if the screennis changed: JBS 09 sjul-1982 | 
: gs 0068 1! i- 5 = Change names of wnetute vate Heb ite {i5ey'- 
| GO) 1 | 17085 = don’t Check AAS statut snot] %s inca: grror message has 
; q $072 i i 1-0 § - poate ent Ents 6 SER CHOD new Screen. Logi¢.  racaal t need it. JBS 09-Oct-1982 
: i 4. - dt$$rn sestest” in Line. § 1-O0ct-1 <Jjyl-1983 
: i a078 i 1-887 = whe cars ontect is at the beginning of the line. JBS 12-Jul- 
: 75 0075 1 i-- 
: 76 0076 1 
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: NOVALUE; 


GET, 
INCLUDE _FILE; 


CLOSE 
In the routine 
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EDTSK 


EDTSK 
EDTS$K 
EXTERNAL REFERENCES: 


TABLE OF CONTENTS: 
VMS system symbols 


INCLUDE FILES: 
IF ZBLISS (BLISS32) 


EQUATED SYMBOLS: 
OWN STORAGE : 


LITERALS 


ns 
ZSBITL ‘Declarations'‘ 


+ 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 
REQUIRE ‘EDTSRC:SYSSYM'; 


REQUIRE "EDTSRC:EDTREQ'; 
x 
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L.CMD = Line mode INCLUDE command 1o=8e8 1 382 99:34:88 | 


SSBTTL “EDTSSINCL_CMD = Line mode INCLUDE command' 
GLOBAL ROUTINE EDTSSINCL_CMD ! Line mode INCLUDE command 
: NOVALUE = 


X-11 Bliss-32 V4 
SKSVMSMASTER:CE 


lee 
} FUNCTIOMAL DESCRIPTION: 
Command processing routing for the INCLUDE command. Attempt to open the file. 
If it succeeds then position as indicated by the range and read the file 
into the buffer in front of that Line. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


EDTS$T_LN_BUF 
EDTSSA~EXE_CURCMD 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: IMPLICIT OUTPUTS: 
i EDTSS$A_SEL_POS 
EDT$$G_TXT_ONSCR 
ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 
Reads a text file into the work file system, or prints an error message. 
ice 

BEGIN 

EXTERNAL ROUTINE 

EDTSSSTOP_WKINGMSG, 


CHK_CC 
SFMT~MSG, 


SINS~LN 
SSTART_INS, 
$F IOPN7ERR: 


D 
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D 
D 
D 
D 
D 
$ (BLISS32) 


~ CESSES SSS 
a 


ZIF ZBLIS 
ITHEN 


Eaten, ROUTINE 
FREE1_DX; 
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2 
E JS pact EDTSLINCL = INCLUDE Line-mode command 18-56 1984 00:51:24 VAX-11 Bliss-32 V4.0-74 Page 5) 
yous EDTSSINCL_CMD = Line mode INCLUDE command 127808-1 382 99:34:96 DL SKSVMGMASTERSCEDT  SRCSLINCL.BLI:1 : (3) | 
; 188 787 “vo : 
: 189 7 8 EDT$$G_RNG_FRSTLN ; 
; 190 ? EDTSSA_CUR-BUF : REF TBCB BLOCK, | : 
> 191 790 EDTSSZ_RNG ORIGPOS : POS_BLOCK, | : 
; 136 791 EDTSS$A_10_FNAM, : 
; 19 a4 EDTS$G_CC_DONE, ! CNTRL/C aborted the command ‘ 
> 194 79 EDT$$G_IOF1_NFND ' File not found flag ‘ 
3 199 794 EDTS$A_EXE_CURCMD REF NODE_BLOCK, : Pointer to the current command. | : 
; 138 795 EDTSS$G_TXT ° ' Force ‘press return to continue’ if under EXT ; 
; #19 0796 EDTSS$T_LN_BuF ! Line buffer : 
: 198 197 EDTS$A-SEC_POS; i Select position in line buffer | : 
: 4 4 44 MESSAGES (CINCFILNEX, ERRINPFIL, INCFILOPN, INCFILCLO, NOFILSPC, RECTOOBIG)); ‘ 
i 308 0801 LOCAL ; 
; 20 etd FILE DESC : BLOCK £8. erry? ‘ 
; spe 9h RHB_DESC : BLOCK (8, BYTE], | : 
: 206 0805 STRADR, ; 
3 dor 0806 STATUS, : 
: 208 0807 STRLEN, : 
; 209 0808 RECORD_T00_B1G; | ; 
: 5 0810 § t 
; \¢ 0811 i If this is VMS, then we are going to pass a descriptor to the : 
; 1 bai§ ! file i/o routine, so set up the type and class ; 
: 5i5 OB14 .. | 
; 216 L OBIS ¢ RIF RBLISS (BLISS32) | ; 
: 218 0817 RHB_DESC [DSCS$B_DTYPE] = DSC$K_DTYPE_T; : 
; 219 0818 RHB_DESC CDSC$B_CLASSJ = DSCSK_CLASS D; ‘ 
; 220 0819 FILE_DESC DSC$B_DTYPE} = DSCSR_DTYPE_T; | : 
: 233 0831 af] FILE_DESC CDSCSB_CLASSJ = DSCSK_CLASS_D; | e 
: de 0 : 
: 92h 08 § , RECORD_T00_816 = 0; | ; 
; 326 08 5 ! Open the file. | : 
; 328 oB97 5 RHB_DESC [DSCSA_POINTER) = 0; | : 
; $3 38 8 RHB-DESC CDSC$W_LENGTH) = 0; | : 
: @n u FILE_DESC CDSCSA_POINTER) = 0; ‘ 
3 $3! | 0 FILE DESC DS eauat NGTH) = 0; : 
: 2 1 STRLEN = .EDTSSA_EXE_CURCMD LFSPCLEN); ' Length of filename ‘ 
; th 3 ¢ STRADR = .EDTSSA_EXE_CURCMD CFILSPEC); ! Address of filename string : 
+ . & } ° 
; 36 $s 7 File specification must be given for INCLUDE : 
: 38 ; IF (.STRLEN EQL 0) : 
: 239 3 THEN | : 
; 240 BEGIN | : 
: 241 0 EDTSSFMT_MSG (EDTS$_NOFILSPC); : 
3 tg 1 RETURN (0); : 
> 266 0828 : 


H 2 
EDTSLINCL EDTSLINCL = INCLUDE Line-mode command 16-Sep-1984 00:51:24 VAX-11 Bliss-32 V4.0-74 Page 6 
Toc boo EDTSSINCL_CMD - 7B mode INCLUDE command 12-808-1 382 90:34:98 PEEKSUMCMASTERSCEDT SRCSLINCL BLI:1 ° (33 | 
> 245 4 STRING_DESC (FILE DESC, STRLEN, .STRADR); | 
; 4g 45 STATUS~= EDTSSCALCFIO (EDTSK_OPEN_INPUT, EDTSK_INCLUDE_FILE, FILE_DESC, RHB_DESC); 
: 248 <3 IF .STATUS 
> 249 0 48 THEN 
; 0 4 BEGIN 
3g] 20 3 t¢ 
: 26 Se) ; File was opened. Position to start of the range. | 
: 254 Beg ’ EDT$$G_RNG_FRSTLN = 1; 
> 255 0854 EDTSSCPY_MEM (POS_SIZE, .EDTSSA_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
; 3 HH 1F ( NOT EDTSSRNG_REPOS (.EDTSSA_EXE_CURCMD CRANGE1])) THEN RETURN (0); 
: 259 0858 3 14 
: re + #4 } Insert all the Lines from the file at the current position. 
: 26 0861 3 EDTSSSTART_INS (); 
:; 26 paee STATUS = 1; 
; 264 086 
; 265 0864 WHILE (.STATUS NEQ 0) DO 
3: 266 0865 4 
: 367 0866 4 GET = EDTSSCALLFIO (EDTSK_GET, EDTSK_INCLUDE_FILE, FILE_DESC, RHB_DESC); 
; $6 L 0868 4 XIF XBLISS (BLISS32) 
: 370 0869 4 XTHEN 
fee 14 0870 4 
: 37 0871 4 IF (.GET EQL RMS$_EOF) THEN EXITLOOP; 
; a 0878 ‘ IF ( NOT .GET) THEN EDTSSFIOPN_ERR (EDTS_ERRINPFIL, .EDTS$A_10_FNAM); 
: 376 u 0875 4 XELSE 
: 277 U 0876 4 
: 278 U 0877 4 IF ( NOT .GET) THEN EXITLOOP; 
3 279 U 0878 4 
; 280 0879 4 ZF! 
3; 281 0880 4 
: 38 0881 5 IF (EDTS$SCHK_CC ()) 
5 8 ett 4 THEN 
3: 284 0883 5 BEGIN 
: HH 088% 3 STATUS = EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INCLUDE_FILE, 0, 0); 
; $B 08 $ ; IF ( NOT .STATUS) THEN EDTSSFIOPN_ERR (EDTS_INCFILCLO, FILE_DESC); 
; He $B88 EDTSSG_C¢ DONE = 1; 
: 290 +434 5 RETURN’ (OJ; | 
: 33 Sbos 4 ’ 
: 38 0898 ‘ IF (.FILE_DESC CDSC$W_LENGTH] GTR 255) THEN RECORD_T00_BIG = 1; | 
: 295 9% 4 EDTSSA_SEL_POS = EDTS$T_LN BUF; | 
3 39 95 4 STATUS = EDTS$INS_LN (.FILE_DESC COSCSA_POINTER], MIN (.FILE_DESC COSCS$W_LENGTH], 255)); | 
: 29 3 : 
: 9 EDTSSEND_INS (); 
= 00 ' a | 
3; 301 900 ' And close the file. 
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LANCE - INCLUDE Line-mode command 18-Sep-1984 90:31:64 VAX-11 Bliss-32 V4.0-74 Page 
INCL_CMD = Line mode INCLUDE command 14-Sep-1984 12:23:56 DISKSVMSMASTER:CEDT.SRCIJLINCL.BLI;1 
le 
EDTSSSTOP_WKINGMSG (); 
STATUS = EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INCLUDE_FILE, 0, 0); 
IF ( NOT .STATUS) THEN EDTSSFIOPN_ERR (EDTS_INCFILCLO, FILE_DESC); 
END 
ELSE 
a BEGIN 
: The open failed, put out an error message. 
EDTSSFIOPN_ERR ( 
IF .EDTS$G_IOFI_NFND THEN EDTS_INCFILNEX ELSE EDTS_INCFILOPN, FILE_DESC); 
END; 
14 
! If we print the message ‘‘record too big’’ then force ‘press return to continue’, 
2 pase ae message would otherwise be lost in the update of the screen that we 
! must do. 
te 
: IF .RECORD_TOO_BIG 
THEN 
BEGIN 
; EDTSSFMT_MSG (EDT$_RECTOOBIG); 
EDTS$G_TRT_ONSCR ="1; 
END; 
\¢ 
} On VMS deallocate all dynamic descriptors used 
ZIF BLISS (BLISS32) 
Z THEN 
STRSFREE1_DX (FILE DESC); 
STRSFREE1_DX (RHB_BESC); 
§ ZF I 
1 END; ! of routine EDTSSINCL_CMD 
TITLE cp Tet inct EDTSLINCL - INCLUDE Line-mode command 
IDENT \v04-000\ 
-EXTRN EDTSK_OPEN_ INPUT 
-EXTRN EDTSKICLOSE, EDT$K_GET 
TEXTRN EDTSK-INCLUOE FILE 
-EXTRN EDTSSSTOP_WKIRGMSG 
~-EXTRN EDTSSCHK_ CC, EDTSSFMT_MSG 
-EXTRN EDTSSCALCFIO, EDTS$RNG_REPOS 
eEXTRN EDTSSEND_INS, corse LN 
-EXTRN EDTSSSTART_INS fot $F TOPN_ERR 
TEXTRN STRSFREE1_BX, EDT $6 RNG_FRSTLN 
~-EXTRN EDTSSA_CUR_BUF, EDTS$SZ_RAG_ORIGPOS 


7 
(3) 
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EDTSLINCL eR Ts. ich - Beret Line-mode command 18- Sep-1984 90: 3}: $¢ VAX-11 BLi 
vO04- EDTS L_CMD ne mode INCLUDE command 14-Sep-1984 6 DISKSVMSMASTER: CEDT. SRCILINCL. BLI;1 (3) 
.EXTRN EDTS$A_10 FNAM, EDT$$G_CC_DONE : 
«EXTRN EDTS$G_IOFI_NFND : 
“EXTRN EDTSS$A_EXE_CURCMD : 
“EXTRN EDTS$$G_TXT-ONSCR ; 
.EXTRN EDTSS$T-LN BUF, EDTS$A_SEL_POS | ; 
eEXTRN EDTS_IACFILNEX, EDTS_ERRINPFIL : 
-EXTRN EDTSTINCFILOPN, EDTS-INCFILCLO : 
-EXTRN EDTS"NOFILSPC, EDTS_RECTOOBIG | : 
SEXTRN STRSCOPY_R : 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 : 
OFFC 00000 .ENTRY EDTSSINCL | CMD, Save R2,R3,R4,R5,R6,R7.R8B,- = 0732 : 
5B 000000006 00 9E 0000 MOVAB RO tSSr Ay. MSG Ri : ; 
5A 890000006 0 9E 0000 MOVAB EDTSS$FIOPN ERR R10 : : 
59 000000006 9— 00 19 MOVAB EDTSSCALLF 9 ; : 
58 000000006 8F 00 0001 MOVL #EDTSK INCLUBE™ FILE, R8 ; : 
5E C C2 0001E SUBL2 #12, SP ; : 
9200000 Hi DD 000 1 PUSHL  #34471936 : 0828 ; 
08 AE 020E0000 8F DO 00027 MOVL  #34471936, FILE_DESC > 0830 ; 
57 04 0000F CLRL - RECORD_TO0_BIG : 0823 : 
04 AE 04 00031 CLRL  RHB_DESC+4 > 0827 ; 
OC AE D4 00034 CLRL FILE DESC+ ; 0829 ; 
50 000000006 00 D0 00037 MOVL EDTSSA_ EXE_CURCMD, RO > 0831 F 
C AO DD 0003E PUSHL 12(R0)~ : ; 
52 8 Ao D 90041 MOVL 8(RO), STRADR + 0832 ; 
6E D5 00045 TSTL § STRLEN + 0837 : 
A 12 00047 BNEG =«:'1$ : : 
000000006 8F DD 90049 PUSHL #EDT$_NOFILSPC + 0840 ; 
6B 01 FB OO04F CALLS #1, eaNestns MSG s : 
04 9005 > 084 ; 
52 DD 000535 1$ PUSHL STRADR : 0844 é 
04 AE OF 9005 PUSHAB TRLEN 3 : 
14 AF 9F 00058 PUSHAB FILE DE ESC F ; 
G F ALL Y 3 3 
000000006 00 03 FB 0005 CALLS STRSCOPY_R 
04 AE OF 9006 PUSHAB RHB_DESC > 0845 F 
10 AE 9F 0006 PUSHAB FILE_DESC : : 
58 DD 00068 PUSHL R : ; 
000000006 8F DD 006A PUSHL #EDT$K_OPEN_INPUT : 3 
LL LF : Hy 
69 04 FB 000 CALLS a, EDTSSCACLE 10 
$6 50 00 0007 MOVL STAT $ : : 
03 56 5 0076 BLBS er TAT : 0847 : 
00F8 31 9079 BRW : : 
000000006 90 1 00 Ms 2$: MOVL DTSSG_ RNG _FRSTLN : 0853 ; 
000000006 00 B0 008 MOVL He A. CUR > 0854 : 
000000006 00 60 E 008A MOVC3 (RO) ~Poréss _RNG_ORIGPOS : 3 
50 000000906 0 DO 0098 MOVL ED TESA _EXE_CURCMD; RO™ > 0856 ; 
4 AO DD 00 PUSHL ath ; : 
000000006 00 gi FB 009¢ CALLS , EDTSSRNG_REPOS ; ; 
1 0 Fé OA BLBS RO: $ : ; 
000000006 90 90 F A$ 3$: CALLS #0, EDTSSSTART_INS > 0861 3 
6 1 p AE VL. STA + 0862 : 
1B j 4$: BEQL © 5$" + 0864 
04 AE OF 3 PUSHAB RHB_DESC > 0866 
10 AE 9F 000B6 PUSHAB FILE_DESC : 


neniiegpinntintans ——— 
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TO. O00 EDTSSINCL_CMD = Line mode INCLUDE command 1 =Sen- 3B 90:34:98 SIEKSUNGHASTERSCEDT SRCSLINCL.BLI:1 9 035 
8 DD 00089 PUSHL R8 : 
000000006 8F DD 8 PUSHL HEDTSK ger : 
9 4 FB C CALLS #4, EDTSS$CALLFIO : 
2 D C4 MOVL RO, GET : 
0001827A BF D1 000¢7 CMPL orf. #98938 + 0871 
1 0 CE 5$ BEQL 4 ; 
OF 52 £8 000D BLBS GET, 6$ ; 0873) 
900000006 DD 0000 PUSHL EDT$$A_10_FN : 
00009006 8F ODD 3 PUSHL #EDT$_ERRINPFIL : 
6A FB OOODF CALLS #2, EDTS$$FIOPN_ERR : 
000000006 90 FB Oe2 58 CALLS #0, EDTSSCHK_CC + 0881 
2 s OE BLBC =: RO, ‘8S : 
. C OO0EC CLRO 30s = $p) + 0884 
« Dp OEE PUSHL R8 : 
000000006 8F DD O00F PUSHL #EDTSK_CLOSE F 
69 04 FB O0F6 CALLS #4, EDTSS$CALLFIO ; 
56 0 D0 OOF MOVL RO STATUS ; 
0c 56 : OOFC BLBS ‘STATUS + 0886 
Oc AE SF OOOFF PUSHAB FILE_DESC ; 
000000006 8F DD 00102 PUSHL #EDTS_INCFIL F 
6A 02 FB 00108 CALLS #2, EBTSSFIOPN_ERR : 
000000006 00 01 00 01 7$: MOVL #1, EDT$$G_CC_BONE > 0888 
04 0011 RET + 0889 
OOFF BF oc AE B1 00113 8$: CMPW = FILE_DESC, #255 + 0892 
03 1B 00119 BLEQU : 
57 01 pO 0011B MOVL #1, RECORD_T00_B1G : 
000000006 00 000000006 00 9€E OO11E 9$: OV EDTS$$T_LN_BUF, EDTS$S$A_SEL_POS + 0894 
7E OC AE 3C 00129 MOVZWL FILE_DESC; -(SP) : 0895 
OOFF 8F 6— B1 00120 CMPW = (SP)> «#255 : 
04 1B 00132 LEQU 10$ ; 
6E FF 8F OA 001 MOVZBL #255, (SP) ; 
14 AE OD 00138 10$:  PUSHL FILE DESC+4 ; 
000000006 00 08 FB 00138 CALLS #2, EDTSS$INS_LN : 
5A 5 p60 O0142 MOVL RO. STATUS ; 
FF69 31 0014 BRW 4$ > 0864 
000000006 00 00 FB 00148 11$: CALLS #0, EDTS$SEND_INS : 0898 
000000006 00 90 FB OO14F CALLS #0, EDTS$$STOP_WKINGMSG > 090 
: 7C 00156 CLRO 0 = (§P) : 090 
58 DD 00158 PUSHL R8 : 
000000006 8F DD 0015, PUSHL #EDTSK_CLOSE ; 
69 04 FB 0169 CALLS #4, EDTSSCALLFIO ; | 
56 50 09 0016 MOVL RO, STATU : | 
26 56 E 0166 BLBS STATUS, 15$ : 0905 | 
oC AE OF 91 PUSHAB FILE DESC ; 
000000006 a pp 4 § PUSHL #EDTS_INCFILCLO : | 
0c AE 9F 00174 12$:  PUSHAB FILE DESC : 0913 
08 999000 66 E9 00177 BLBC EDTS$S$G_IOFI_NFND, 13$ : 091 
00000006 F oD Ie PUSHL HEDTS_INCF ICNEX 
000000006 BF DD O0186 138: — PUSHL AEDTS INCE IL OPN ; 
6A ¢ FB 18C 14$: CALLS #2, EDTSSFIOPN_ERR ; 
0 E9 OO18F 15$:  BLBC RECORD TOO BIG, 16$ : 0935 
000000006 +8F DD 001 ; PUSHL arOTS Rec Too 6 : 0928 
1 FB 19 CALLS #1, EDTSSFMT_MSG : | 
000000006 1 2 1 MOVL #1, EDT$$G_TRT_ONSCR : 0929 | 
OC AE 9F OO1A2 168 PUSHAB FILE_DESC : 09 8 
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: Routine Size: 


44 
45 


439 bytes, 


0943 


0944 


L_CMD 
000000006 00 
000000006 00 


1 
1 !<BLF/PAGE> 


Routine Base: 


EDISSINCL CMD = Line mode INCLUDE. command 


-EDTSCODE + 0000 


1$-$6p-1964 09:51:26 


$ 


#1 
RH 
“i,” 


VAX 
DISK 
R 
S 


i 


et) Ol issese ys 
VMSMASTER:[C 54° She LINCL.BLI;1 


FREE1_DXx 
FREE1_DXx 


Page i? 


mM 2 
EDTSLINCL EDTSLINCL = phtLe Line-mode command ep-19 VAX-11 Bliss-32 V4.0-74 i 
04-000 ED TSS ING INCL_C es mode INCLUDE command 128 Sep ats i 99: 34: $4 DISKSVMSMASTER:CEDT.SRCJLINCL.BLI;1 
: 347 0945 1 END ! of module EDTSLINCL 
: 348 b2e8 1 
3; 4349 947 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 439 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Ca eS A ES SYEROLG eceocene Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28: : EDT. SRCJEDT 1325 1 377 84 22 40 00:00.2 
: _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
: ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 7 0 581 00:04.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LINCL/OBJ=OBJ$:LINCL MSRC$:LINCL.BLI/UPDATE=(ENH$:LINCL) 


Size: 439 code + 0 data bytes 
Run Time 726.7 

Elapsed feet 00:38.4 

Lines/CPU Min: 132 


Lexemes/CPU-Min: 7281 
Used: 162 pages 
Compilation Complete 


aef 


VAX/VMS V4.0 
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